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MISCELLANEOUS NOTES 

As everyone probably noticed, the listing in issue #1 had a few 

errors relating to lacking greater- than and less- than signs. Certain 

lines in the program should be altered. I will use a "@" to represent 

a greater-than sign and a "0" for a less-than sign. Correct as follows* 

210 IP L0C+64 @ -20^9 THEN RETURN 
310 IP LOC-1 -3968 THEN RETURN 
410 IF LOC+l @ -204-9 THEN RETURN 
510 IF LOC-64 -3963 THEN RETURN 

Also pertaining to errors, several of you noticed that the correct 
locations for the USR function addresses are not 259 and 260, but 260 
and 261. These are the numbers given in the finished Sorcerer Technical 
Manual , which is now in print and available for $11 .95 from your local 
computer store* 

My thanks to Bob Bachman and his printer in Lansing, Michigan. Now 
I will be able to provide clear, error-free listings. 

CIRCULATION^ 

My original ad in 0N_LINE has only drawn about 30 responses so far, 
although they still keep coming in. The August issue of Kilobaud Micro- 
computing has a letter that I sent in; this should generate some re- 
sponse also. My aim is to reach all users, or at least to let them 
be aware of our presence. One easy way of reaching others easily that 
I have "discovered" is to place copies of this newsletter in computer 
stores (with the owners permission, of course). Actually, this helps 
us in more ways than one. Sorcerer owners will be pleased to see that 



The Sorcerer's Apprentice is published by Dave Bristor, 1530 Washtenaw, 
Ann Arbor, MI, 48104. For free copies, send an SASE approximately 
every month and a half. 



yes, some people axe communi eating ideas, and prospective buyers may 
be more likely to purchase a Sorcerer if they know that an information 
exchange does exist. Hopefully, both the user and buyer will contact 
me. I have given copies to the stores in my area, so how about you? 
You may well just come away from the store knowing more than when you 
walked in (I certainly did), and friends in computer stores never hurt 
anybody. If you think you can use some copies, whether to place in 
a store, for friends or for that other computer club, let me know 
how many you need and I'll get them out to you right away. 

RUMORS AND NEWS ABOUT EXIDY 

Do you still read ON_LINE? Then you probably already know about 
Exidy's latest releases. If not, then you can read about them here. 

Two new ROM PAC's are available- the WORD PROCESSOR and the DEVELOP- 
MENT PAG, and there is a VIDEO/DISK attachment. The Video/Disk unit 
houses a 12" video display using P31 phosphor and having a bandwidth 
of 20 MHz for clear pictures. Also included is a dual mini-floppy 
disk drive with a data storage capacity of 63OK bytes. Software 
included in the package includes CP/M, Z-80 assembler, text editor, 
linking loader, and Microsoft Disk Extended BASIC. All for only $2995. 

The Word Processing Pac will support either a modified Selectric or 
the Diablo/Qume proportional output printers. Either a cassette recor- 
der or a mini-floppy may be used for storage. The Edit mode allows 
full cursor control, Insert/Delete, Scan, Tab, Indent, Hyphen, Macros, 
pagination and titling. The Command mode has standard word processor 
functions, tape merge with memory, line length set, printer option set, 
string search, and display of unused space. File names may be up to 3 
characters. Price $99. 

Development PAC software includes a two pass Z-80 assembler, a 
text editor, and a debugger. The assembler's i/O can be vectored to 
any device driver within the Sorcerer, source and object code can be 
spooled to accomodate programs of infinite length, and absolute assem- 
blies and oseudo operators are supplied. The editor is line oriented, 
allowing forward cursor positioning, line insert and delete, spooling,, 
and source code i/o to any device. The debugger can display and/or 
modify any register or RAM location and set breakpoints. Available 
for $99. For more info, contact Exidy directly. 



Now for those rumors I promised. Exidy has not verified these, but 
I believe my sources to be reliable enough to print what follows. 

An extended BASIC more powerful than Radio Shack's Level II will 
be available in the near future on cassette. This will be Microsoft's 
newest BASIC; it will include verbs to manipulate graphics, have long 
variable names, and other niceties. 

The upcoming color graphics board will be bit by bit programmable 
and provide for a 256 by 256 display, expandable to 512 by 512. Note 
that even the low resolution mode has a higher resolution than the 
AEPLE-II's high resolution mode. This should make for some beautiful 
displays. 

PROGRAM EXCHANGE 

No, not yet, but coming soon with your help. Everyone would be 
able to benefit from a cassette software exchange, and I'd like to 
see one going as soon as possible. I still want to publish listings; 
they are generally easier for me to follow than the video. Typing in 
lines is a real pain, however, and hard-to-find mistakes always seem to 
creep in. Microcomputing is supposed to be a fun hobby, not a tedious 
one. To that end, I think a free or inexpensive exchange should be set 
up. Notice please that I said that it should be set up, not that I can 
set it up. School still has first priority over my time, and most of 
my spare time goes to this newsletter in one way or another. I'd really 
like to hear from anyone else interested in performing this service. 
Who knows? You may even make some money doing it. Please, anybody 
with ideas, let me know what we can do. 

WE ARE NOT ALONE . . . . 

In the user's group buisness, that is. Two other user's groups 
have come to my attention in recent weeks. One is sponsored by the 
Computer Mart of Waltham, Massachusets. You can write them at 
Computer Mart Waltham, 1395 Main Street, Waltham, Mass., 021 54-. I am 
sending a copy of this issue and a letter of introduction to them; I '11 
tell you more about their activities in the next issue. 

The other group to come to my attention is run by Steve Long, 792 
Laurie Ave. , Santa Clara, CA, 95050. Steve publishes the Sorcerer 
User's Newsletter 12 times a year; subscriptions run for $10. Sample 
issues are available for the price of an SASE. Steve sent me a copy of 



his May issue which included articles on a printer driver in Basic, some 
digital to analog conversion techniques, and information regarding the 
use and operation of some programs just added to his software library. 
Steve's program already has 69 programs available for $4- apiece. He is 
also a dealer for Exidy products. 

FILES AND YOUR SORCERER 

The Sorcerer's standard has provisions for saving, from within 
a program, numerical arrays using CSAVE* and CLOAD*. These are great 
if you want to write a checkbook handling program, but not much good 
if you want to maintain an address list or phone book on tape. Of 
course, since a computer can do virtually anything, saving and reading 
character records (or arrays) is possible, but it has to be done in a 
somewhat roundabout way. I have managed to fairly successfully read 
and save character strings using the ordinary PRINT and INPUT state- 
ments after changing the input and output vectors from within a pro- 
gram. This is similar to issuing the command SE 0=S from within the 
running program, and then resetting it with SE 0=V, also from the 
running program. Once again, I have used the USR function to accomplish 
this, along with some simple machine language programming. I use 
the following routines to change the output and input with the USR 
function: 

Change output from video to tape- 

0000 11 12 E0 LD DE,0UTAPE 

0003 FD 73 3F LD (lY+OUTADD),E 

0006 FT) 72 40 LD (IY+OUTADD+l),D 

0009 C9 RET 

Change output from tape to video- 

0010 11 IB E0 LD DE,VIDE0 
0013 FD 73 3F LD (IY-K3UTADD),E 
0016 FD 72 40 LD (IY+0UTADD+l),D 

0019 C9 RET 

Change input from keyboard to tape- 

0020 11 OF E0 LD DE,INTAFE 
0023 FD 73 41 LD (IY+INADD),E 
0026 FD 72 42 LD (IY+INADD+l),D 

0029 C9 RET 

Change input from tape to keyboard- 

0030 11 18 E0 LD DE.KEYBRD 
0033 FD 73 4-1 LD (IY+INADD),E 
OO36 FD 72 4-2 LD (IY+INADD+1),D 
00T9 C9 RET 



The following program uses the routines to print a character string 

to the tape unit and then read it back*. , 

10 INPUT "TYPE A STRING" ;A$ 

20 PRINTj PRINT "PUT A CASSETTE IN THE RECORDER, 

30 PRINT "START RECORDING AND ALLOW THE LEADER TO PASS 

40 INPUT "HIT RETURN WHEN READY" ? XX$ 

50 POKE 260,0: POKE 261,0 

60 XX=USR(0) 

70 PRINT "" 

80 PRINT A$ 

90 POKE 260,16 

100 XX=USR(0) 

110 CLEAR 50s REM NULL ALL VARIABLES 

120 PRINT.* PRINT "YOUR STRING HAS BEEN SAVED ON TAPE 

130 PRINT "AND ITS VALUE IN THE VARIABLE A$ DESTROYED 

140 PRINTj PRINT "TO RELOAD THE STRING, REWIND THE TAPE 

150 PRINT "AND PRESS PLAY 

160 INPUT "HIT RETURN WHEN READY";XX$ 

170 POKE 260. 32s POKE 261,0 

180 XX=USR(0) 

190 INPUT XX$ 

200 INPUT A$ 

210 A$=RIGHT$(A$,LEN(A$)-1) ; 

220 POKE 260,48 

230 XX=USR(0) 

240 PRINTs PRINT "THE STRING SAVED ON TAPE IS 

250 PRINT A$ 

Line 70 is apparently necessary to initialize the INPUT statements 
so that the actual string is read back in instead of garbage on the tape. 
While in the input section of the program, you will see question marks 
printed on the screen as well as the garbage and the string itself. To 
prevent this from happening in a program, the output can be routed to 
the tape unit as well: this won't interfere with program performance, 
but will keep the question marks and garbage and strings from appearing 
on the screen. 

Line 210 is used to chop off the first character of the INPUT 
string. For some reason unknown to me, the first character of the 
string is a CHR$(10), or a line-feed. I can only assume that this has 
to do with the way the PRINT statement operates. 

I have used this i/o changing technique with some degree of success 
in a small address list handling program. Hopefully the program will 
be perfected in time for the next issue. 



PROGRAMS OF THE MONTH 

RACETRACK 
contributed by Marvin Weingast . 

From Marvin: "This program is similar to the one published in 
issue #1 except that the machine language subroutine, which is a little 
different from yours, is inside a FOR-NEXT loop. This allows the mo- 
ving spot, in this case a blinking star, to be moving all the time. 
The rate of blinking or the speed of the star can be changed with mi- 
nor programming changes. 

"The object of the game is to maneuver the star around the track, 
or alternatively to erase the track borcers using the star. 

"To start the motion of the star press 2, 4, 6, or 8, which con- 
trol the direction in the same manner as your program. Press 2, 4-, 6, 
or 8 to change the direction. To stop press 5«" 

LUNAR LANDER 
contributed by Bob Bachman 

Lunar Lander is one of the truly classic computer games, second 

only to Startrek in use. Bob's version not only provides the captain 

with the usual velocity, distance, and fuel remaining statistics, but 

it gives him a graphical display of his distance from the lunar surface. 

Give your friends a try at this one, then try to keep them away. 

CRAPS 
contributed by yours truly 

I dug this one out of my high school senior scrapbook. It was a 
project for my first ever computer class. I wrote it three years 
ago, but have since refined it somewhat. 

As with all the programs I present, I like to bring in something 

new if at all possible. This program uses the statement PRINT CHR$(X) 

to control the position of the cursor. The following table gives the 

various values to move the cursor: 

1 - cursor left 
12 - clear screen 
17 - cursor home 
19 - cursor right 
23 - cursor up 
26 - cursor down 

You will probably want to use the controls with PRINT CHR$(X);. 

Note that semi-colon! It is not a typo, and if you leave it off when 

trying to position the cursor (right, left, up, down) you may not get 



the results you want. I'll leave you with this to play around with 
and learn about oa your own. 

MORS MISCELLANEOUS 

Otto Borufsen of Sor-Audnedal, Norway, is our first international 
member. Congratulations, Otto. 

I am working on some hardware-software designs for a beeper, a pair 
of joysticks, and a light pen. I will print schematics and full info 
as soon as any of them are finished. Hopefully, this will be in the 
next issue. 

Kilobaud-Microcomputing has published a letter I sent them about 
seeking more members, and it is working. I am receiving several re- 
quests daily. My personal thanks to KB. 

More material is needed. for printing, as is almost always the case. 
Almost anything is acceptable: book reviews, hardware reviews, soft- 
ware, indeed, anything pertaining to the use of a Sorcerer. Let'3 
all help each other! 

This issue looks like about eight pages as of now. For now, I 
can and will absorb printing and special mailing costs, but if this 
newsletter grows the way I would like it to, I will have to start 
charging for subscriptions eventually. I would appreciate your views 
on this subject, i.e. what you think would be reasonable, should the 
format be changed to fit more on a page, should I take in advertise- 
ments, etc., etc. I'd like to hear from you . 



The following was contributed by Terry Calvert: 

CROSS REFERENCE BETWEEN EXIDY SORCERER AND TRS-80: Expansion Interface Jack 



Function 

DATA 
1 
2 

3 
4 

5 
6 

7 

ADDR 
1 
2 

3 

4 

5 
6 

7 
8 

9 

ltf- 

11 
12 

13 
14 

15, 

Clock 1 

02 

PRESET 

INT 

MI 

WAIT 

Data Buss 
BUSS REQUEST 
HMI 

BUSS ACK 
BUSS DIRECTIOI 

RAM CONTROL: 

RAH DRIV ER 

REFRESH 

RD 

WR 

MUX 

RAS 

CAS 

K REQ 

U.P. 8K 
ROM PRE 
I/O 



I/O REQUEST 

RESET 

HALT 

+5V. 

GMD 



Exidy Pin # 

3 Z 

40 

39 
42 
41 
44 
43 
46 
29 
32 
31 
34 
33 
36 

35 
38 

21 

24 

23 
26 

3J* 
27 

28 

10 
13 

1 

2 
16 

3 
4 

5 
6 

7 
8 

9 
19 
17 
20 



15 
14 

11 
48 

18 

45 
22 

49,50 



TRS-80 Pin ff Comment 

30 
22 
32 
26 
18 
28 
24 
20 
25 

40 
34 
31 
35 
38 

36 

11 

17 

4 

9 
5 

6 

10 
7 



14 
21 
33 



23 



15 

13 

16 

1 

3 



12 
19 



TRSs JNTAK« Interrupt Ack output 

INT - Interrupt input *Kaskable 
Processor wait for memory 
Exidyj 

Exidy; Nonmaskable interrupt 

determines input/output direction 



Exidyj also RCM ENABLE 

Memory Read Strobe 

Memory write strobe 

Multiplexor control for dynamic Rams 

Row address strobe " " " 

Column address strobe " " " 



TRS; CUT= Peripheral write strobe out 
IN = Peripheral read strobe out 

Exidy; Pin 12- RESET ACK 



39 
8,29,37 



Unused 



47 



Thanks to Marvin Weingast: Part One of a Five Part Series- 
A SHORT TOUR OF BASIC— ERATA 

22 Mar 79 

P.7.1i». 23 Add sentence; 

[RUN/STOP] . S as 

p. 13, line 5 Replace: "a=a+1" 

B y : "A is equal to A+1". 

P. 60, line 15 Renlacp. +.~ a.- 

piace - --.to stimulate dice. 

By: ...to simulate dice. 
P. 64, line 1 Add line: 

60 PRINT B$ 

P-69 Add section: String Space 

(see below) 

p. 71, lines Replace: ORANGE? 
o and 9 

B Y= URANGE$ 

Note that ORANGES is nnf » •?,=>„, i 

contains the reserved Sord ol? "^ SinCe " 

p,A_:I ' Add: RIGHT? 

STEP 

f.tl tfl A S?l d i X H: The Action USR, 



(L2) 



(see belowf IUnctlon USR(X > 



String space 



reserves for strings, string variables, 

^e SSj g n S2" if c^^Ls th |„ S aV° b ^ teS .Characters, ; if 

naracters m all your string constants, 

variables, and arrays is .ore then 50/ yon will get an os error 
—-.<,.. tin fact, yon win get the os message ^ ^^ 

since standard BASIC nses so me of the string space for its 
own purposes.) 



Page 2 



PART 2 



Example: 

10 FOR X=1 TO 100 
20 PRINT X, 

3 LET A$=A$+»A" 

4 PRINT A$ 
50 NEXT 

TUS *"""" WU1 — -» OS e« or at x=26 . 

TO reSe " e m ° re '*** °— - t he cormand 
CLEAR <n™ erical expression>> 

When Sorcerer s«a OC +.», • 

sion and then «^r s ^^«»t evaluates the ^^ 



produces 



this much string space 
100 bytes 
999 bytes 

the number of spaces 
equal to the value 
of X+Y. e 



too 

I/O 



1/0 
110 



pfiEStffirn listiis 



$ P/lt/uT cHdiCfL) 

to Fotl X-5 To is 

So M-yr x 

Fofl- )C--7 To 7 

Potce -2U5 + t</*y,/7? 
n~o pone -1<?9S tit**,/?? 

"Loo p (L y- TO i 

2^^ Pore? _z.->*& *6y yX /77 

3oo po/i y=--/o to to 

Pont -looo ^yjrx,/?-? 

V<5o /r ^ Xsr0 To Vo 



SlO DATA '^ = S /i/9/ 3 /2lV/lY/5o ^ O/6/O/7/20 , U0/ ^ H£ 

S-LO pea X= I To 1 

Szt fKe*# /?,& 

Shn, poK€ A,fr 
5 t b as£Yt T 

ioo Fofi. 5-0 To looo 

6/S /F W$ <> C#/ip(o) tm<?~T$-u,£ 

1(0 i/z ft- ^ T( +c p._ , 

7 *° IF 6 - Z r/*?~ />r ^V 

7 ^ /f 6- S 7VK?> /> r 

jfoo ?_:2.+P 

VSo Potte 2 tf\ 

%& & F0<- A - To to : /Oi£>*T A 

%1& Pone Z y 2>z 
to 00 tf/^Q 



10 PRIMTCHR$(12) 

\l Hill" LUNAR LANDING SIMULATION » 

30 PRINT:PRINT 

H ?2 r !!J s I2!! u r DO Y0U WW INSTR»JCT(DNS":Q$:PRINT 
50 IF Q$="M" THEN ?70 .«-.niwi 

60 PRINT 
70 PRINT 

30 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MAN'J*L 

90 PRINT-CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YO" uftVE A" " 
!00 it PRINT"DOWMWARD VELOCITY OF 50 FT/SEC. 150 UNITS OF FUEL REM A 

1 10 PRINT 

120 PRINT"HERE ARE THE RULES THAT GOVERN YOUR qPAPR i/rurnr." 

^PRINT-CD AFTER EACH SECOND, THE HEIGHlf VELOCmT ^ REM AI 

140 PRINT" FUEL WILL BE REPORTED." 

150 PRINT"C2) AFTER THE REPORT, A '?'WILL RE TYPED ENTER TWR" 

160 PRINT" NUMBER OF UNITS OF FUEL YOU WISH TO %jr\ \ If mil TH 

r^PRINT" NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YO"R DESC 

180 PRINT" BY 1 FT/SEC." 

190 if PRINT"(3) THE MAXIMUM ' THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC 

200 PRINT" 30 UNITS OF FUEL PER SFCOND." 

Vol dS5mI" (4) mEH Y0 ' J CO^ACT THE LUNAR SURFACE, YOUR ENGINE 

220 PRINT" WILL AUTOMATICALLY CUT OFF AND YOU WILL 3E GIVEN A 

230 PRINT" REPORT OF YOU LANDING SPEED AND REMAIUTNq Fr?n " 

240JRINT-C5) IF YOU RUN OUT OF FUEL, THE <?< 3iLl"o\onqer APR 

250'PRINT" BUT YOUR SECOND-BY -SECOND REPORT WILL CONTINUE 'INT 

260 PRINT" YOU CONTACT THE LUNAR SURFACE. "• PPTNT 

270 INPUT"PU3H RETURN WHEN READY" :Q$ V 

230 PRINTCHRSC12) 

290 PRINT-BEGINNING LANDING PROC^DUR^. , . "• prut 

300 PRINT"G D LUCK!!'" " " ' 

310 PRINT 

\\l 1111V SZZ FEET SPEED FUEL PL0T 0F DISTANCE 

jo» PRINT 

340 T=0 

350 H = 500 

360 V = 50 

370 F= 150 

330 PRINT T;TA8(4);H;TAB(12);V:TAR(P5i)-F- 
390 PRINT TABC25);CHR$(1S*) : " " 
400 PRINT TflB(H/!5+26):CHR$(159):CHR < tn50) 



41 e INPUTS 

420 IF 3<0 THEM 570 

430 IF B>30 THEN 3=30 

440 IF 9>F -THEN 3=F 

4-50 Vl=V-B+5 

460 F = F-B 

470 H=H-.5*(V+V1 ) 

480 IF H<=0 THEN 590 

490 T=T+1 

500 -V = V1 

510 IF F>0 THEN 3*0 

520 IF 3=0 THEN 540 

530 PRINT"****OUT OF FUEL****" 

540 PRINT T;TAB(4) ;H :TAB ( 1 2) : V;T A3 (20) ;F: 

550 PRINT TA3(25) ;CHR$(163) ; 

560 PRINT TAB(H/15+26) :CHR$(159) :CHR$M58) 

570 3=0 

580 GOTO 450 

590 PRINT"****CONTACT****" 

600 H=H+.5*(V+V1 ) 

610 IF 3=5 THEN 640 

620 D=(-V+SQR(V*V+H*( 10-2*3) ))/(5-B) 

630 GOTO 650 

640 D=H/U 

650 Vl=V+(5-B)*D 

660 PRINT"TOUCHDOWN AT" ;T+D : "SECONDS. " 

670 PRINT"LANDIW3 VELOCITY: " : V 1 :"FEET/SEC . " 

580 PRINTF:"UNITS OF F'JEL REGAINING." 

690 IF V1<>0 THEN 730 

700 PRINT"CONGRATULATIONS! A PERFECT LANDING!" 

710 PRI>JT"YOUR LICENSE WILL BE RENEWED LATER" 

720 GOTO 760 

730 IF ABS(Vl)<2.5 THEN 840 

740 PRIMT"******SORRY, BUT YOU BLE'«' IT!!!!!" 

750 PRINT"CONDOLENCES TO YOUR NEXT OF v IN " 

760 PRINT:PRIMT:PRINT 

770 PRINT"AMOTHER MISSION? (Y/N) 

780 INPUT Z$ 

790 IF Z$="N" THEN 810 

800 GOTO 280 

810 PRINT"CONTROL CENTRAL, OUT, SO LONG" 

320 PRINT:PRINT:PRINT:PRINT 

830 GOTO 370 

340 PRINT"TOUCH DOWN WAS A LITTLE RO'fGH, ^UT YOU SURVIVED' ' 

350 PRINT: PR INT: PR INT 

360 GOTO 770 

370 END 

READY 



10 REM • CRAPS "BY DAVE BRISTOR 

20 REM WRITTEN SPRING 197S 

30 REM REVISED SUMMER 1979 

40 REM INITIALIZE RANDOM NUMBER GENERATOR 

50 D=RND(-RNDC5)) 

S0 PRINT CHR$C12) 

70 PRINTtPRINT" ***CRAPS*** 

80 PRINT:PRINT"DO YOU NEED INSTRUCTIONS "; 

90 INPUT A$:IF LEFT$CA$, 1 )<>"N" THEN GOSUB630 :GOTO110 

100 PRINT:PRINT"OKAY THEN, I'M GAME. 

110 C=1:M=0 

120 REM INPUT LOOP TO LINE 190 

130 PRINT "TYPE ROLL " ; 

140 INPUT R$:IF R$="ROLL" THEN M=0:GOTO210 

150 M=M+1 

160 ON M GOTO170 , 130,190 

170 PRINT:PRINT"PLEASE ROLL "::GOTO140 

180 PRINT:PRINT"I SAID ROLL!!! "?:GOTO140 

190 PRINT:PRINT"OKAY THEN, I QUIT !!!!!!": GOTO790 

200 REM ROLL DICE 

210 X=INT(RNDC1)*6+1) 

220 Y = INT (RNDd )*6+l ) 

230 S=X+Y 

240 IF C=l THEN FST=S 

250 GOSUB340 

263 REM CHECK FOR WIN 

270 IF C=l AND (S=7 OR S=ll) THEN400 

280 IF C>1 AND S=FST THEN400 

290 REM CHECK FOR LOSE 

300 IF C=l AND (S = 2 OR S = 3 OR S=1J>) THEN470 

310 IF C>1 AND S=7 THEN470 

320 C=C+1 

55d GOTO 130 

340 REM PRINT ROLL SUBROUTINE 

350 IF S=8 OR S=ll THEN GOTO380 

111 gotS390 RINT " TH ' T ' S a " ;X? " and a "' y *"» wich MAVES FOR A":S 

390 RETUrT RINT " L ° 0KS LIKE A "< X; " W A":Y;"-6 TOTAL OF":S 

400 REM ***WIN*** 

410 PRINTsPRINT" YOU WON"" 

?!2 5£ S <3 I HEN pr ^T:PRINT"LUCv Y FINGERS, DUDE" : GOTO450 

HI l J C<6 THEN PRINT:PRINT"NOT BAD FOR AN AMATEUR" • GOTO450 

440 PRINT:PRINT"WELL FINALLY! AT LEAST YOU WON." : g6?O450 

450 PRIMT:PRINT"YOU HIT IT LUCKY ON ROL! MUMBER"-C 

460 GOTO530 ' ' ' 



470 REM **LOST*** 

480 PRINTrPRINT" AHA-YOU LOSE! 

490 IF C<3 THEN PRINT:PRINT"THAT DIDN'T T*KE LONG, DID IT ?":GOT 

0520 

500 IF C<6 THEN PRINTtPR INT"KEEP UP THE GOOD WORv, PaL":GOTO520 

5 10 PRINT:PRINT"DOWN THE DRAIN AFTER ALL THAT ! " : GOTO520 

520 PRINTtPR INT"Y0U BLEW IT ON ROLL":C 

530 REM ***ROLL NUMBER*** 

540 IF C<3 THEN PRINT t PRINT"TRY AGAIN, HOTSHOT ";:GOTO570 

550 IF C<6 THEN PRINT tPRINT"WHY NOT GIVE IT ANOTHER TRY "::G0T05 

70 

560 PRINT:PRINT"ONCE MORE ";:GOTO570 

570 INPUT A$ 

530 IF LEFT$(A$,1)<>"N" THEN 110 

590 PRINTtPRINT"OKAY, THANKS FOR PLAYING. BYE! 

600 PRINT 

610 END 

620 REM INSTRUCTIONS 

630 PRINT CHR$(12) 

640 PRINT 

650 PRINT" CRAPS IS A DICE GAME. YOU WIN OR LOSE DEPENDING 

660 PRINT"ON WHAT YOU ROLL. 

670 PRINT 

630 PRINT" TO WIN, JUST ROLL A 7 OR AN 11 ON YOUR FIRST 

690 PRINT"ROLL CHAD, OR ROLL YOUR FIRST NUMBER ON ANY 

700 PRINT"SUCCEEDING ROLL. 

710 PRINT 

720 PRINT" TO LOSE, MAKE YOUR FIRST ROLL A 2, A 3, OR A 12. 

730 PRINT"OR, YOU CAN LOSE BY ROLLING A 7 ANY TIME AFTER 

740 PRINT-YOUR FIRST ROLL. NOW ISN'T THAT EASY 7 

750 PRINT 

760 PRINT" GET READY NOW, 'CAUSE HERE WE GO... 

770 PRINT 

730 RETURN 

790 END 

READY 



